home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / HOTELS.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.4 KB  |  82 lines
  1. 5 BASE=2*4096:POKE53272,PEEK(53272)OR8    :REM PUT BIT MAP AT 8192
  2. 9 REM ********** MULTI-COLOR BIT MAP MODE
  3. 10 POKE53265,PEEK(53265)OR32:POKE53270,PEEK(53270)OR16
  4. 20 FORI=BASETOBASE+7999:POKEI,0:NEXT
  5. 25 FORS= 1024TO1223:POKES,1:NEXT           :REM STARS' INITIAL COLOR
  6. 27 FORS2=1224TO2023:POKES2,4 :NEXT         :REM LOW NIBBLE ??
  7. 35 FORC=55296 TO 56295:POKEC,0:NEXT       :REMCOLOR MEMORY      NEEDED??
  8. 40 POKE53280,0:POKE53281,11
  9. 230 REM ********** POKING STARS SEQUENCE
  10. 235 FOR CH=1TO39 STEP10+RND(CH)
  11. 240 FOR RO=2TO4  STEPRND(RO)
  12. 245 FOR LN=0TO0
  13. 250 FOR BI=7TO0 STEP RND(BI)
  14. 255 BY=BASE+RO*320+8*CH+LN
  15. 260 POKEBY,PEEK(BY)OR(2^BI):POKERND(BI),13:NEXT:NEXT:NEXT:NEXT
  16. 264 REM ********** COLORS PER SQUARE
  17. 265 FOR CH= 3 TO 10
  18. 270 FOR RO=  8TO 25
  19. 275 FOR LN=0  TO  1
  20. 280 FOR BI=7  TO  0 STEP-1                  :REM SC LN 10 AND/OR COLOR MEMORY ??
  21. 285 BY=BASE+RO*320+8*CH+LN
  22. 290 POKEBY,PEEK(BY)OR(2^BI)
  23. 295 NEXT:NEXT:NEXT:NEXT
  24. 297 FORS3=1224TO2023:POKES3,6:NEXT          :REM   HIGH NIBBLE   NEEDED??
  25. 300 FOR CH= 3 TO 10
  26. 305 FOR RO=  8TO 25
  27. 310 FOR LN=2  TO  5
  28. 315 FOR BI=5  TO  3 STEP-2                  :REM SC HN 01 AND/OR COLOR MEMORY ??
  29. 324 BY=BASE+RO*320+8*CH+LN
  30. 325 POKEBY,PEEK(BY)OR(2^BI)
  31. 330 NEXT:NEXT:NEXT:NEXT
  32. 331 REM FOR CH= 3 TO 10
  33. 332 REM   FOR RO= 8TO  25
  34. 333 REM  FOR LN=2  TO  5
  35. 334 REM   FOR BI=5  TO  3 STEP-2            :REM SC HN 01 AND    
  36. 20291 LOR MEMORY ??
  37. 335 REM   BY=BASE+RO*320+8*CH+LN
  38. 336 REM POKEBY,PEEK(BY)OR(2^BI)
  39. 337 REM  NEXT:NEXT:NEXT:NEXT
  40. 378 FOR CH= 3 TO 10
  41. 380 FOR RO= 8 TO 25
  42. 385 FOR LN= 6 TO  7
  43. 390 FOR BI= 7 TO  0  STEP-1
  44. 395 BY=BASE+RO*320+8*CH+LN
  45. 400 POKEBY,PEEK(BY)OR(2^BI)
  46. 405 NEXT:NEXT:NEXT:NEXT
  47. 450 FOR CH= 20TO 35
  48. 455 FOR RO= 15TO 25
  49. 460 FOR LN=0  TO  1
  50. 465 FOR BI=7  TO  0 STEP-1                  :REM SC LN 10 AND/OR COLOR MEMORY ??
  51. 470 BY=BASE+RO*320+8*CH+LN
  52. 475 POKEBY,PEEK(BY)OR(2^BI)
  53. 480 NEXT:NEXT:NEXT:NEXT
  54. 485 FORS3=1224TO2023:POKES3,6:NEXT          :REM   HIGH NIBBLE   NEEDED??
  55. 490 FOR CH= 20TO 35
  56. 495 FOR R    
  57. 42037  25
  58. 500 FOR LN=2  TO  5
  59. 505 FOR BI=5  TO  3 STEP-2                  :REM SC HN 01 AND/OR COLOR MEMORY ??
  60. 520 BY=BASE+RO*320+8*CH+LN
  61. 525 POKEBY,PEEK(BY)OR(2^BI)
  62. 530 NEXT:NEXT:NEXT:NEXT
  63. 535 REM FOR CH= 20TO 35
  64. 540 REM   FOR RO=15TO  25
  65. 545 REM  FOR LN=2  TO  5
  66. 550 REM   FOR BI=5  TO  3 STEP-2            :REM SC HN 01 AND/OR COLOR MEMORY ??
  67. 555 REM   BY=BASE+RO*320+8*CH+LN
  68. 560 REM POKEBY,PEEK(BY)OR(2^BI)
  69. 565 REM  NEXT:NEXT:NEXT:NEXT
  70. 570 FOR CH= 20TO 35
  71. 575 FOR RO= 15TO 25
  72. 580 FOR LN= 6 TO  7
  73. 585 FOR BI= 7 TO  0  STEP-1
  74. 590 BY=BASE+RO*320+8*CH+LN
  75. 595 POKEBY,PEEK(BY)OR(2    
  76. 36352 XNEXT:NEXT:NEXT:NEXT
  77. 800 REM ********** TURNING LIGHTS ON AND OFF FROM BLACK TO YELLOW
  78. 850 FORA=0TO7STEP7    :FORF=1224TO2023STEP15+RND(3)+1:POKEF,A:NEXTF:NEXTA
  79. 900 REM ********** TWINKLING STARS ON AND OFF FROM WHITE TO BLUE
  80. 950 FOR B=1TO6STEP5:FORS=1024TO1223STEP3+RND(3)+1:POKES,B:NEXTS:NEXTB:GOTO800
  81. 1000 GOTO 1000
  82.